SUBROUTINE objfcn_mayor0(p0, fval)
  USE commonvars
  IMPLICIT NONE

  REAL(8), INTENT(IN)     :: p0(:)
  REAL(8), INTENT(OUT)    :: fval
  INTEGER                 :: n 

  EXTERNAL mayorsolution0

  n=size(p0, dim=1)

  CALL mayorsolution0(n, p0, fval)
  
END SUBROUTINE objfcn_mayor0
